home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / mio16.bas < prev    next >
BASIC Source File  |  1997-10-30  |  718b  |  22 lines
  1. '
  2. ' MIO.BAS
  3. '
  4.  
  5. Option Explicit
  6.  
  7. DefInt A-Z
  8.  
  9. Global Const MIO_SEND_TO = 1
  10. Global Const MIO_WAIT_FOR = 2
  11. Global Const MIO_QUIET = 3
  12.  
  13. Global Const MIO_IDLE = 0
  14. Global Const MIO_RUNNING = -1
  15.  
  16. Declare Function mioSendTo Lib "MIO16.DLL" (ByVal Port, ByVal Pace As Long, ByVal Text As String) As Integer
  17. Declare Function mioQuiet Lib "MIO16.DLL" (ByVal Port, ByVal Delay As Long) As Integer
  18. Declare Function mioWaitFor Lib "MIO16.DLL" (ByVal Port, ByVal TimeOut As Long, ByVal Text As String) As Integer
  19. Declare Function mioResult Lib "MIO16.DLL" (ByVal Port) As Integer
  20. Declare Function mioDriver Lib "MIO16.DLL" (ByVal Port) As Integer
  21. Declare Function mioBreak Lib "MIO16.DLL" (ByVal Port) As Integer
  22.